home *** CD-ROM | disk | FTP | other *** search
/ Aminet 7 / Aminet 7 - August 1995.iso / Aminet / comm / cnet / kickboxing10b.lha / Kick-Boxing < prev    next >
Text File  |  1994-12-31  |  1KB  |  42 lines
  1. /* Kick Boxing V1.0 (By: Billy The Kid) 313-422-3113 */
  2.  
  3. options results
  4. getuser 1;name=result
  5. logentry ''name' played Kick-Boxing'
  6. wins=0;loses=0;class='Fly_weight';trwins=0;trloses=0;lastplayer=0;fought=0
  7. str=50;winlose=0;ver='1.0b';pk=0;rank=0
  8.  
  9. startup:
  10. transmit 'f1n1c5@ Kickboxing Version 'ver' || By: Billy The Kid (C) 1991'
  11. call checkchamp
  12. sendfile "pfiles:Kickboxing/KickBox.Intro"
  13. if exists('pfiles:Kickboxing/Fighters/'name) then do
  14. transmit 'n1c4|| c1Welcome back 'name''
  15. call start
  16. end
  17. if ~exists('pfiles:KickBoxing/Fighters/'name) then do
  18. transmit 'n1c4|| c1A new fighter, welcomec1!'
  19. transmit 'n1c5Let me set you up with a stats record.'
  20. call open(file,'pfiles:Kickboxing/Fighters/'name'',"W")
  21. call writeln file, wins;call writeln file, loses;call writeln file, class
  22. call writeln file, trwins;call writeln file, trloses;call writeln file, str
  23. call writeln file, pk;call writeln file, rank;call close(file)
  24. if ~exists('pfiles:Kickboxing/Fighters.List') then do
  25. call open(file,'pfiles:Kickboxing/Fighters.List',"W")
  26. call writeln file, name;call close(file)
  27. call start
  28. end
  29. call open(file,'pfiles:Kickboxing/Fighters.List',"A")
  30. call writeln file, name;call close(file)
  31. call start
  32.  
  33. start:
  34. transmit 'n1c1* The current champion is c4'champ''
  35. transmit 'n1c2One moment please..'
  36. spawn 'pfiles:KickBox.Main'
  37. exit
  38.  
  39. Checkchamp:
  40. call open(file,'Pfiles:Kickboxing/Champ.dat',"R")
  41. champ=readln(file);call close(file);return
  42.